﻿procedure;
var
  SLdcit : TStringList;
  
begin
  
  SLdcit := TStringList.Create;
  try
    if not AppServer.ExistDBKeyValue(Sourcename,rmPrimary,'189233,10','3868511,10100',ftID) then
    begin
      SLdcit.Clear;
      SLdcit.Values['ic']   := LByID('3868511,10100');
      SLdcit.Values['u']    := RByID('3868511,10100');
      SLdcit.Values['ic_a'] := LByID('3589090,10100');
      SLdcit.Values['u_a']  := RByID('3589090,10100');
      SLdcit.Values['ic_b'] := LByID('259643,10');
      SLdcit.Values['u_b']  := RByID('259643,10');
      AppServer.InsertDBRecord(SourceName,'','189233,10',False,SLdcit);
    end;
    //
    if not AppServer.ExistDBKeyValue(SourceName,rmPrimary,'189234,10','3868512,10100',ftID) then
    begin
      SLdcit.Clear;
      SLdcit.Values['ic']   := LByID('3868512,10100');
      SLdcit.Values['u']    := RByID('3868512,10100');
      SLdcit.Values['ic_a'] := LByID('3589128,10100');
      SLdcit.Values['u_a']  := RByID('3589128,10100');
      SLdcit.Values['ic_b'] := LByID('3868511,10100');
      SLdcit.Values['u_b']  := RByID('3868511,10100');
      SLdcit.Values['210330,10'] := '30';
      AppServer.InsertDBRecord(SourceName,'','189234,10',False,SLdcit);
    end;
  finally
    SLdcit.Free;
  end;


  AppServer.SetDSTransferData(SourceName,'6269,5',nttNonLicAndNonNLP,lttAll,[mtaInsert,mtaUpdate,mtaDelete],[mtaInsert]);
  AppServer.SetDSTransferData(SourceName,'6269,5',nttNonLicAndNLP,lttNonLangOrNonNLP,[mtaInsert,mtaUpdate,mtaDelete],[]);
  AppServer.SetDSTransferData(SourceName,'6269,5',nttLicAndNonNLP,lttLangOnly,[mtaInsert,mtaUpdate,mtaDelete],[]);
  AppServer.SetDSTransferData(SourceName,'6269,5',nttLicAndNLP,lttNonNLPOnly,[mtaInsert,mtaUpdate,mtaDelete],[]);
  AppServer.SetDSTransferData(SourceName,'6269,5',nttNLPOnly,lttNLPOnly,[mtaIUpdate],[]);
  AppServer.SetDSTransferData(SourceName,'9999,9999',nttNonLicAndNonNLP,lttAll,[mtaInsert,mtaUpdate,mtaDelete],[mtaInsert]);
  AppServer.SetDSTransferData(SourceName,'9999,9999',nttNonLicAndNLP,lttNonLangOrNonNLP,[mtaInsert,mtaUpdate,mtaDelete],[]);
  AppServer.SetDSTransferData(SourceName,'9999,9999',nttLicAndNonNLP,lttLangOnly,[mtaInsert,mtaUpdate,mtaDelete],[]);
  AppServer.SetDSTransferData(SourceName,'9999,9999',nttLicAndNLP,lttNonNLPOnly,[mtaInsert,mtaUpdate,mtaDelete],[]);
  AppServer.SetDSTransferData(SourceName,'9999,9999',nttNLPOnly,lttNLPOnly,[mtaIUpdate],[]);
  AppServer.SetDSTransferData(SourceName,'165587,10',nttNonLicAndNonNLP,lttAll,[mtaInsert,mtaUpdate,mtaDelete],[mtaInsert]);
  AppServer.SetDSTransferData(SourceName,'165587,10',nttNonLicAndNLP,lttNonLangOrNonNLP,[mtaInsert,mtaUpdate,mtaDelete],[]);
  AppServer.SetDSTransferData(SourceName,'165587,10',nttLicAndNonNLP,lttLangOnly,[mtaInsert,mtaUpdate,mtaDelete],[]);
  AppServer.SetDSTransferData(SourceName,'165587,10',nttLicAndNLP,lttNonNLPOnly,[mtaInsert,mtaUpdate,mtaDelete],[]);
  AppServer.SetDSTransferData(SourceName,'165587,10',nttNLPOnly,lttNLPOnly,[mtaIUpdate],[]);
  M17059359_10;  // NEMAZAT, STANDARDNI SOUCAST REINSTALACE
  AppServer.SetSQLScript(SourceName,TargetPath + 'Reinstall_1102AD.sql');
end.